Namespace Workflow

Partial Class Sql1 : Inherits System.Web.UI.Page

#Region " Web Form Designer Generated Code "
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub
    Private designerPlaceholderDeclaration As System.Object
    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
    End Sub
#End Region

#Region "Form Controls"
#End Region


    Private Sub btnDataset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDataset.Click
        Response.Clear()
        Response.ContentType = "text/xml"
            Response.Write(CDataSrc.Default.ExecuteDataSet(txtSql.Text, Nothing).GetXml().ToString())
        Response.End()
    End Sub
    Private Sub btnScalar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnScalar.Click
        Response.Clear()
            Response.Write(CDataSrc.Default.ExecuteScalar(txtSql.Text, Nothing))
        Response.End()
    End Sub
    Private Sub btnNonQuery_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNonQuery.Click
        Response.Clear()
            Response.Write(CDataSrc.Default.ExecuteNonQuery(txtSql.Text, Nothing))
        Response.End()
    End Sub
End Class

End Namespace
